perm filename TEST[GEM,BGB]2 blob sn#056524 filedate 1973-08-08 generic text, type T, neo UTF8
COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	TITLE TEST
 00003 ENDMK
⊗;
TITLE TEST

	L1 ← <(1)>
QQ:	L1
	↓TBIT3←←1B20
	↓TBIT2←←1B19
	↓TBIT1←←1B18

	↓FOLDED ←← 1B11
	↓VISIBLE ←← 1B12
	↓POTENT ←← 1B13

	DEFINE MARKZ(Q,BITS){
	IFE <BITS>⊗-22,{MOVEI BITS}
	IFN <BITS>⊗-22,{MOVSI <BITS>⊗-22}
	ANDCAM (Q)}

SA:	MARKZ 1,FOLDED+VISIBLE+POTENT
	MARKZ 1,TBIT1+TBIT2+TBIT3
	TLNE 0,(FOLDED+VISIBLE)
END SA